home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue64 / System / TheExpert.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-10-19  |  1.5 KB  |  76 lines
  1. unit TheExpert;
  2.  
  3. interface
  4.  
  5. uses Windows, DummyForm, ExptIntf;
  6.  
  7. type
  8.     TDemoExpert = class (TIExpert)
  9.     public
  10.         function GetName: String; override;
  11.         function GetAuthor: String; override;
  12.         function GetComment: String; override;
  13.         function GetPage: String; override;
  14.         function GetGlyph: HIcon; override;
  15.         function GetStyle: TExpertStyle; override;
  16.         function GetState: TExpertState; override;
  17.         function GetIDString: String; override;
  18.         function GetMenuText: String; override;
  19.         procedure Execute; override;
  20.     end;
  21.  
  22. implementation
  23.  
  24. procedure TDemoExpert.Execute;
  25. begin
  26.     InvokeDummyExpert;
  27. end;
  28.     
  29. function TDemoExpert.GetName: String;
  30. begin
  31.     Result := 'IDE Secrets Demo Expert';
  32. end;
  33.  
  34. function TDemoExpert.GetAuthor: String;
  35. begin
  36.     Result := 'Dave Jewell';
  37. end;
  38.  
  39. function TDemoExpert.GetComment: String;
  40. begin
  41.     Result := 'Dave Jewell''s IDE Secrets Demo Expert';
  42. end;
  43.  
  44. function TDemoExpert.GetPage: String;
  45. begin
  46.     Result := '';
  47. end;
  48.  
  49. function TDemoExpert.GetGlyph: HIcon;
  50. begin
  51.     Result := 0;
  52. end;
  53.  
  54. function TDemoExpert.GetStyle: TExpertStyle;
  55. begin
  56.     Result := esStandard;
  57. end;
  58.  
  59. function TDemoExpert.GetState: TExpertState;
  60. begin
  61.     Result := [esEnabled];
  62. end;
  63.  
  64. function TDemoExpert.GetIDString: String;
  65. begin
  66.     Result := 'DSJ.IDESecrets.Expert';
  67. end;
  68.  
  69. function TDemoExpert.GetMenuText: String;
  70. begin
  71.     Result := 'IDE Secrets Demo Expert';
  72. end;
  73.  
  74. end.
  75.  
  76.